Introducing the New Way to Shop From Home/Introducing the New Way to Shop From Home (Iceland Foods) (2003).iso/pc/MacStepbyStep.dxr/Internal_26_Jump Forward Button.ls

Text File | 2003-01-01 | 5.5 KB | 139 lines

property myStateBehavior, myState
global gNavigationButtonList

on getBehaviorDescription me
  return "JUMP FORWARD BUTTON" & RETURN & RETURN & "Allows users to retrace their steps after having used the Back button." & RETURN & RETURN & "This behavior works in association with the Jump Back Button, which in turn relies on the Jump to Marker Button and/or Jump to Movie Button behaviors." & RETURN & RETURN & "These behaviors store visited markers in a global variable: gNavigationButtonList. " & "While authoring, the Jump Back Button may take you to other (unconnected) movies where you used the same behavior. " & "If you find this disconcerting, type 'clearGlobals' into the Message Window before you run your current movie." & RETURN & RETURN & "If you wish to use the Jump... " & "behaviors both on the Stage and in a MIAW, and you wish to make the content of each entirely separate, you will need to create a copy of the whole set of behaviors, and change all occurrences of the global name in all the behaviors in one set. " & "(Use the Find command, followed by the Replace All button, limiting the search to the current script). " & "Use one set of behaviors for the MIAW and the other for the Stage." & RETURN & RETURN & "PERMITTED MEMBER TYPES:" & RETURN & "Graphic members" & RETURN & RETURN & "PARAMETERS:" & RETURN & "None" & RETURN & RETURN & "ASSOCIATED BEHAVIORS:" & RETURN & "* Jump to Marker Button" & RETURN & "* Jump to Movie Button" & RETURN & "* Jump Back Button" & RETURN & "* Push Button (to alter rollover / mouseDown states)"
end

on getBehaviorTooltip me
  return "Use with graphic members." & RETURN & RETURN & "This behavior can only be used in conjunction with the Jump Back Button behavior, which in turn relies on the Jump to Marker Button and/or Jump to Movie Button behaviors. " & "When the user clicks on a sprite with this behavior the playback head will retrace the steps previously taken in the reverse direction by the Jump Back Button."
end

on beginSprite me
  Initialize(me)
end

on prepareFrame me
  if myStateBehavior.count() then
    CheckIfActive(me)
  end if
end

on mouseUp me
  GoForward(me)
end

on Initialize me
  if voidp(gNavigationButtonList) then
    gNavigationButtonList = [#stack: [], #forward: [], #index: []]
  else
    if gNavigationButtonList.ilk <> #propList then
      ErrorAlert(me, #invalidGlobal, gNavigationButtonList)
    else
      if not gNavigationButtonList.findPos(#stack) then
        ErrorAlert(me, #invalidGlobal, gNavigationButtonList)
      else
        if not gNavigationButtonList.findPos(#index) then
          ErrorAlert(me, #invalidGlobal, gNavigationButtonList)
        else
          if not gNavigationButtonList.findPos(#forward) then
            ErrorAlert(me, #invalidGlobal, gNavigationButtonList)
          end if
        end if
      end if
    end if
  end if
  theSprite = sprite(me.spriteNum)
  theBehaviors = theSprite.scriptInstanceList
  myState = -1
  myStateBehavior = []
  call(#PushButton_GetReference, theBehaviors, myStateBehavior)
end

on CheckIfActive me
  forwardCount = count(gNavigationButtonList.forward)
  forwardState = forwardCount <> 0
  if myState = forwardState then
    exit
  end if
  myState = forwardState
  call(#PushButton_ToggleActive, myStateBehavior, forwardState)
end

on GoForward me
  forwardCount = count(gNavigationButtonList.forward)
  if not forwardCount then
    exit
  else
    currentMarker = [#frame: marker(0), #movie: the movieName]
    gNavigationButtonList.stack.append(currentMarker)
    markerToGoTo = gNavigationButtonList.forward.getLast()
    gNavigationButtonList.forward.deleteAt(forwardCount)
    theFrame = markerToGoTo.frame
    theMovie = markerToGoTo.movie
    if theMovie = the movieName then
      go(theFrame)
    else
      go(theFrame, theMovie)
    end if
  end if
end

on substituteStrings me, parentString, childStringList
  i = childStringList.count()
  repeat while i
    tempString = EMPTY
    dummyString = childStringList.getPropAt(i)
    replacement = childStringList[i]
    lengthAdjust = dummyString.char.count - 1
    repeat while 1
      position = offset(dummyString, parentString)
      if not position then
        parentString = tempString & parentString
        exit repeat
        next repeat
      end if
      if position <> 1 then
        tempString = tempString & parentString.char[1..position - 1]
      end if
      tempString = tempString & replacement
      delete parentString.char[1..position + lengthAdjust]
    end repeat
    i = i - 1
  end repeat
  return parentString
end

on ErrorAlert me, theError, data
  behaviorName = string(me)
  delete word 1 of behaviorName
  delete char -30001 of behaviorName
  delete char -30001 of behaviorName
  case data.ilk of
    #void:
      data = "<void>"
    #symbol:
      data = "#" & data
  end case
  case theError of
    #invalidGlobal:
      terror1 = "BEHAVIOR ERROR: Frame ^0, Sprite ^1"
      terror1 = substituteStrings(me, terror1, ["^0": the frame, "^1": the currentSpriteNum])
      terror2 = "Behavior ^0 requires a global gNavigationButtonList with " & RETURN & "the following structure:"
      terror2 = substituteStrings(me, terror2, ["^0": behaviorName])
      terror3 = "[#stack [...], #index: [...], #forward: [...]]"
      terror4 = "Current value = ^0"
      terror4 = substituteStrings(me, terror4, ["^0": data])
      alert(terror1 & RETURN & RETURN & terror2 & RETURN & terror3 & RETURN & RETURN & terror4)
      halt()
  end case
end

on isOKToAttach me, aSpriteType, aSpriteNum
  tisok = 0
  if aSpriteType = #graphic then
    tisok = 1
  end if
  return tisok
end